inherited frmPessoa: TfrmPessoa
  Left = 267
  Top = 70
  Caption = 'Cadastro de Pessoas'
  ClientHeight = 503
  ClientWidth = 772
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel [0]
    Left = 10
    Top = 187
    Width = 33
    Height = 13
    Caption = 'Estado'
  end
  inherited Panel1: TPanel
    Top = 466
    Width = 772
    inherited Bitnovo: TBitBtn
      Left = 7
    end
    inherited Bitgrava: TBitBtn
      Left = 81
      Hint = 'Confirma Inclus'#227'o/Altera'#231#227'o do Registro '
    end
    inherited Bitcancela: TBitBtn
      Left = 155
    end
    inherited Bitedita: TBitBtn
      Left = 229
    end
    inherited Bitexclui: TBitBtn
      Left = 303
    end
    inherited Bitpesquisa: TBitBtn
      Left = 377
    end
    inherited Bitfecha: TBitBtn
      Left = 451
      Caption = 'Sai&r'
    end
  end
  inherited Panel2: TPanel
    Width = 772
    Height = 466
    inherited Panel3: TPanel
      Width = 770
      Caption = 'Pessoas'
      inherited GroupBox1: TGroupBox
        Left = 691
      end
    end
    inherited Panel4: TPanel
      Width = 770
      Height = 424
      inherited SbHints: TStatusBar
        Top = 401
        Width = 762
      end
      object PageControl1: TPageControl
        Left = 4
        Top = 4
        Width = 762
        Height = 397
        ActivePage = TabSheet1
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MultiLine = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        object TabSheet1: TTabSheet
          Caption = '&1- Dados Pessoais'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          object Label1: TLabel
            Left = 117
            Top = 4
            Width = 102
            Height = 13
            Caption = 'Nome / Raz'#227'o Social'
            Color = clBtnFace
            FocusControl = EdtNome
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label5: TLabel
            Left = 582
            Top = 4
            Width = 35
            Height = 13
            Caption = 'Pessoa'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label13: TLabel
            Left = 356
            Top = 206
            Width = 84
            Height = 13
            Caption = 'Nasc / Funda'#231#227'o'
            Color = clBtnFace
            FocusControl = EdtNascimento
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label14: TLabel
            Left = 445
            Top = 206
            Width = 68
            Height = 13
            Caption = 'Data Cadastro'
            Color = clBtnFace
            FocusControl = EdtCadastro
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label7: TLabel
            Left = 282
            Top = 81
            Width = 42
            Height = 13
            Caption = 'Telefone'
            Color = clBtnFace
            FocusControl = EdtRComplemento
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label6: TLabel
            Left = 3
            Top = 82
            Width = 46
            Height = 13
            Caption = 'Endere'#231'o'
            Color = clBtnFace
            FocusControl = DBEdtREndereco
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label8: TLabel
            Left = 523
            Top = 81
            Width = 27
            Height = 13
            Caption = 'Bairro'
            Color = clBtnFace
            FocusControl = EdtRBairro
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label4: TLabel
            Left = 574
            Top = 46
            Width = 98
            Height = 13
            Caption = 'Identidade/Inscri'#231#227'o'
            Color = clBtnFace
            FocusControl = EdtIdeInscricao
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label3: TLabel
            Left = 410
            Top = 46
            Width = 42
            Height = 13
            Caption = 'Cpf/Cnpj'
            Color = clBtnFace
            FocusControl = EdtCpfCnpj
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label17: TLabel
            Left = 189
            Top = 164
            Width = 32
            Height = 13
            Caption = 'Celular'
            Color = clBtnFace
            FocusControl = EdtCelular
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label12: TLabel
            Left = 0
            Top = 164
            Width = 61
            Height = 13
            Caption = 'Telefone fixo'
            Color = clBtnFace
            FocusControl = EdtRTelefone
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label11: TLabel
            Left = 6
            Top = 120
            Width = 19
            Height = 13
            Caption = 'Cep'
            Color = clBtnFace
            FocusControl = EdtRCep
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label15: TLabel
            Left = 2
            Top = 4
            Width = 33
            Height = 13
            Caption = 'Codigo'
          end
          object Label16: TLabel
            Left = 2
            Top = 46
            Width = 114
            Height = 13
            Caption = 'Apelido / Nome fantasia'
          end
          object Label22: TLabel
            Left = 365
            Top = 164
            Width = 25
            Height = 13
            Caption = 'Email'
          end
          object Label10: TLabel
            Left = 116
            Top = 120
            Width = 33
            Height = 13
            Caption = 'Estado'
          end
          object Label34: TLabel
            Left = 663
            Top = 4
            Width = 21
            Height = 13
            Caption = 'Tipo'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label41: TLabel
            Left = 3
            Top = 206
            Width = 29
            Height = 13
            Caption = 'Grupo'
          end
          object Label43: TLabel
            Left = 520
            Top = 206
            Width = 43
            Height = 13
            Caption = 'Profiss'#227'o'
          end
          object Label45: TLabel
            Left = 643
            Top = 206
            Width = 72
            Height = 13
            Caption = 'N'#186' de Cadastro'
          end
          object LabelCidade: TLabel
            Left = 304
            Top = 120
            Width = 33
            Height = 13
            Caption = 'Cidade'
          end
          object EdtNome: TDBEdit
            Left = 117
            Top = 19
            Width = 463
            Height = 21
            Hint = 'Nome (Pessoa) / Raz'#227'o social (Empresa)'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_NOME'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnEnter = EdtNomeEnter
            OnExit = EdtNomeExit
          end
          object EdtNascimento: TDBEdit
            Left = 356
            Top = 219
            Width = 85
            Height = 21
            Hint = 'Data de nascimento (Pessoa) / Data de funda'#231#227'o (Empresa)'
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_NASCIM'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 21
            OnEnter = EdtNascimentoEnter
            OnExit = EdtNascimentoExit
          end
          object EdtCadastro: TDBEdit
            Left = 444
            Top = 219
            Width = 73
            Height = 21
            Hint = 'Data deste Cadastro'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CADASTRO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            TabOrder = 22
            OnExit = EdtCadastroExit
          end
          object EdtRComplemento: TDBEdit
            Left = 282
            Top = 95
            Width = 237
            Height = 21
            Hint = 'Complemento do endere'#231'o'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_COMPLEMENTO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
            OnEnter = EdtRComplementoEnter
            OnExit = EdtRComplementoExit
          end
          object DBEdtREndereco: TDBEdit
            Left = 3
            Top = 95
            Width = 276
            Height = 21
            Hint = 'Endere'#231'o da pessoa ou empresa'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_ENDERECO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            OnEnter = DBEdtREnderecoEnter
            OnExit = DBEdtREnderecoExit
          end
          object EdtRBairro: TDBEdit
            Left = 521
            Top = 95
            Width = 226
            Height = 21
            Hint = 'Bairro da pessoa ou empresa'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_BAIRRO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 8
            OnEnter = EdtRBairroEnter
            OnExit = EdtRBairroExit
          end
          object EdtIdeInscricao: TDBEdit
            Left = 573
            Top = 59
            Width = 175
            Height = 21
            Hint = 'Identidade (Pessoa) / Inscri'#231#227'o (Empresa)'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_IDEINS'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            OnEnter = EdtIdeInscricaoEnter
            OnExit = EdtIdeInscricaoExit
          end
          object EdtCpfCnpj: TDBEdit
            Left = 410
            Top = 59
            Width = 160
            Height = 21
            Hint = 'CPF (Pessoa F'#237'sica) / CNPJ ( Pessoa Jur'#237'dica)'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CPFCNPJ'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            OnEnter = EdtCpfCnpjEnter
            OnExit = EdtCpfCnpjExit
          end
          object EdtCelular: TDBEdit
            Left = 188
            Top = 177
            Width = 172
            Height = 21
            Hint = 'N'#250'mero do celular'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CELULAR'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 17
            OnEnter = EdtCelularEnter
            OnExit = EdtCelularExit
          end
          object EdtRTelefone: TDBEdit
            Left = 0
            Top = 177
            Width = 184
            Height = 21
            Hint = 'N'#250'mero do telefone fixo'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_FONE'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 16
            OnEnter = EdtRTelefoneEnter
            OnExit = EdtRTelefoneExit
          end
          object EdtRCep: TDBEdit
            Left = 4
            Top = 133
            Width = 105
            Height = 21
            Hint = 'CEP da rua (99.999-99)'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_POSTAL'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 9
            OnEnter = EdtRCepEnter
            OnExit = EdtRCepExit
          end
          object DBEDIT_APELIDO: TDBEdit
            Left = 2
            Top = 59
            Width = 404
            Height = 21
            Hint = 'Apelido (Pessoa) / Nome fantasia (Empresa)'
            CharCase = ecUpperCase
            DataField = 'PES_FANTASIA'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            OnEnter = DBEDIT_APELIDOEnter
            OnExit = DBEDIT_APELIDOExit
          end
          object EdtEmail: TDBEdit
            Left = 364
            Top = 177
            Width = 383
            Height = 21
            Hint = 'Endere'#231'o eletr'#244'nico'
            CharCase = ecUpperCase
            DataField = 'PES_EMAIL'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 18
            OnEnter = EdtEmailEnter
            OnExit = EdtEmailExit
          end
          object EdtPesEstado: TDBEdit
            Left = 116
            Top = 133
            Width = 37
            Height = 21
            Hint = 'C'#243'digo do estado'
            CharCase = ecUpperCase
            DataField = 'PES_ESTADO'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 10
            OnEnter = EdtPesEstadoEnter
            OnExit = EdtPESEstadoExit
          end
          object DBCbPessoa: TDBComboBox
            Left = 583
            Top = 19
            Width = 78
            Height = 21
            Hint = 'Pessoa Fisica ou Jur'#237'dica (Empresa)'
            Style = csDropDownList
            CharCase = ecUpperCase
            DataField = 'PES_PESSOA'
            DataSource = DtSrc
            Enabled = False
            ItemHeight = 13
            Items.Strings = (
              'F'#205'SICA'
              'JUR'#205'DICA')
            TabOrder = 1
            OnEnter = DBCbPessoaEnter
            OnExit = DBCbPessoaExit
          end
          object DbcbTipo: TDBComboBox
            Left = 664
            Top = 19
            Width = 85
            Height = 21
            Hint = 'Tipo de pessoa (Cliente, Fornecedor ou Ambos)'
            Style = csDropDownList
            CharCase = ecUpperCase
            DataField = 'PES_CLIFOR'
            DataSource = DtSrc
            Enabled = False
            ItemHeight = 13
            Items.Strings = (
              'CLIENTE'
              'FORNECEDOR'
              'AMBOS')
            TabOrder = 2
            OnEnter = DbcbTipoEnter
            OnExit = DbcbTipoExit
          end
          object EdtCodigoGrupo: TDBEdit
            Left = 2
            Top = 219
            Width = 41
            Height = 21
            Hint = 'C'#243'digo da fun'#231#227'o do usu'#225'rio '
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_GRUPO'
            DataSource = DtSrc
            Enabled = False
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 19
            OnEnter = EdtCodigoGrupoEnter
            OnExit = EdtCodigoGrupoExit
          end
          object BtnGrupo: TBitBtn
            Left = 44
            Top = 219
            Width = 21
            Height = 21
            Hint = 'Consulta grupo'
            Caption = '...'
            Enabled = False
            TabOrder = 20
            OnClick = BtnGrupoClick
          end
          object DBEditCodigo: TDBEdit
            Left = 1
            Top = 19
            Width = 112
            Height = 21
            TabStop = False
            Color = clBtnFace
            DataField = 'PES_IDFCOD'
            DataSource = DtSrc
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 25
          end
          object DBEdtCodigo: TDBEdit
            Left = 642
            Top = 219
            Width = 104
            Height = 21
            Hint = 'N'#250'mero de Cadastro'
            CharCase = ecUpperCase
            DataField = 'PES_CODIGO'
            DataSource = DtSrc
            TabOrder = 24
            OnEnter = DBEdtCodigoEnter
            OnExit = DBEdtCodigoExit
          end
          object DBEditProfissao: TDBEdit
            Left = 520
            Top = 219
            Width = 121
            Height = 21
            Hint = 'Profiss'#227'o da pessoa'
            CharCase = ecUpperCase
            DataField = 'PES_PROFISSAO'
            DataSource = DtSrc
            ParentShowHint = False
            ShowHint = True
            TabOrder = 23
            OnEnter = DBEditProfissaoEnter
            OnExit = DBEditProfissaoExit
          end
          object GroupBox3: TGroupBox
            Left = 1
            Top = 248
            Width = 749
            Height = 113
            Caption = 'Observa'#231#245'es'
            TabOrder = 26
            object DBMObservacoes: TDBMemo
              Left = 2
              Top = 15
              Width = 745
              Height = 96
              Hint = 'Observa'#231#245'es sobre o cadastro de pessoas.'
              Align = alClient
              DataField = 'PES_OBSERVA'
              DataSource = DtSrc
              Enabled = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              OnEnter = DBMObservacoesEnter
              OnExit = DBMObservacoesExit
            end
          end
          object btnEstado: TBitBtn
            Left = 154
            Top = 133
            Width = 21
            Height = 21
            Hint = 'Consulta estado'
            Caption = '...'
            TabOrder = 11
            OnClick = btnEstadoClick
          end
          object stEstado: TStaticText
            Left = 176
            Top = 133
            Width = 121
            Height = 21
            Align = alCustom
            AutoSize = False
            BorderStyle = sbsSingle
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 12
          end
          object EdtMunicipio: TDBEdit
            Left = 301
            Top = 133
            Width = 36
            Height = 21
            Hint = 'C'#243'digo da cidade'
            CharCase = ecUpperCase
            DataField = 'PES_CIDADE'
            DataSource = DtSrc
            Enabled = False
            TabOrder = 13
            OnEnter = EdtMunicipioEnter
            OnExit = EdtMunicipioExit
          end
          object stCidade: TStaticText
            Left = 360
            Top = 133
            Width = 385
            Height = 21
            AutoSize = False
            BorderStyle = sbsSingle
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 15
          end
          object btnCidade: TBitBtn
            Left = 338
            Top = 133
            Width = 21
            Height = 21
            Hint = 'Consulta cidade'
            Caption = '...'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 14
            OnClick = btnCidadeClick
          end
          object stGrupo: TStaticText
            Left = 66
            Top = 219
            Width = 288
            Height = 21
            Align = alCustom
            AutoSize = False
            BorderStyle = sbsSingle
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 27
          end
        end
        object TabSheet2: TTabSheet
          Caption = '&2- Dados Complementares'
          ImageIndex = 1
          object Label32: TLabel
            Left = 624
            Top = -24
            Width = 24
            Height = 13
            Caption = 'Sexo'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label25: TLabel
            Left = 3
            Top = 95
            Width = 36
            Height = 13
            Caption = 'Filia'#231#227'o'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label28: TLabel
            Left = 396
            Top = 186
            Width = 24
            Height = 13
            Caption = 'Sexo'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object GroupBox4: TGroupBox
            Left = 3
            Top = 131
            Width = 748
            Height = 132
            Caption = ' Endere'#231'o comercial '
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            object Label35: TLabel
              Left = 6
              Top = 13
              Width = 41
              Height = 13
              Caption = 'Empresa'
              Color = clBtnFace
              FocusControl = DBEdit3
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label37: TLabel
              Left = 317
              Top = 12
              Width = 46
              Height = 13
              Caption = 'Endere'#231'o'
              Color = clBtnFace
              FocusControl = DBEdit5
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label42: TLabel
              Left = 108
              Top = 89
              Width = 33
              Height = 13
              Caption = 'Estado'
              Color = clBtnFace
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label21: TLabel
              Left = 6
              Top = 50
              Width = 64
              Height = 13
              Caption = 'Complemento'
              Color = clBtnFace
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label30: TLabel
              Left = 317
              Top = 53
              Width = 27
              Height = 13
              Caption = 'Bairro'
              Color = clBtnFace
              FocusControl = DBEdit13
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label29: TLabel
              Left = 7
              Top = 89
              Width = 19
              Height = 13
              Caption = 'Cep'
              Color = clBtnFace
              FocusControl = DBEdit12
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label36: TLabel
              Left = 560
              Top = 90
              Width = 64
              Height = 13
              Caption = 'Telefone/Fax'
              Color = clBtnFace
              FocusControl = DBEdit4
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Label27: TLabel
              Left = 293
              Top = 90
              Width = 33
              Height = 13
              Caption = 'Cidade'
            end
            object DBEdit3: TDBEdit
              Left = 5
              Top = 27
              Width = 308
              Height = 21
              Hint = 'Nome da empresa em que trabalha'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CTRABALHO'
              DataSource = DtSrc
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 0
              OnEnter = DBEdit3Enter
              OnExit = DBEdit3Exit
            end
            object DBEdit5: TDBEdit
              Left = 320
              Top = 26
              Width = 413
              Height = 21
              Hint = 'Endere'#231'o da empresa'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CENDERECO'
              DataSource = DtSrc
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 1
              OnEnter = DBEdit5Enter
              OnExit = DBEdit5Exit
            end
            object DBEditEstComp: TDBEdit
              Left = 108
              Top = 103
              Width = 34
              Height = 21
              Hint = 'C'#243'digo do estado'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CESTADO'
              DataSource = DtSrc
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 5
              OnEnter = DBEditEstCompEnter
              OnExit = DBEditEstCompExit
            end
            object DBEdit13: TDBEdit
              Left = 320
              Top = 66
              Width = 414
              Height = 21
              Hint = 'Bairro'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CBAIRRO'
              DataSource = DtSrc
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 3
              OnEnter = DBEdit13Enter
              OnExit = DBEdit13Exit
            end
            object DBEdit12: TDBEdit
              Left = 7
              Top = 103
              Width = 100
              Height = 21
              Hint = 'CEP da rua'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CPOSTAL'
              DataSource = DtSrc
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 4
              OnEnter = DBEdit12Enter
              OnExit = DBEdit12Exit
            end
            object DBEdit4: TDBEdit
              Left = 560
              Top = 103
              Width = 173
              Height = 21
              Hint = 'Telefone ou fax da empresa'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CFONE'
              DataSource = DtSrc
              Enabled = False
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 11
              OnEnter = DBEdit4Enter
              OnExit = DBEdit4Exit
            end
            object DbEidtEndComp: TDBEdit
              Left = 6
              Top = 66
              Width = 307
              Height = 21
              Hint = 'Complemento do endere'#231'o'
              BevelOuter = bvNone
              BevelKind = bkFlat
              CharCase = ecUpperCase
              Ctl3D = True
              DataField = 'PES_CCOMPLEMENTO'
              DataSource = DtSrc
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 2
              OnEnter = DbEidtEndCompEnter
              OnExit = DbEidtEndCompExit
            end
            object btnEstCom: TBitBtn
              Left = 144
              Top = 103
              Width = 21
              Height = 21
              Hint = 'Consulta estado'
              Caption = '...'
              TabOrder = 10
              OnClick = btnEstComClick
            end
            object stEstadoCom: TStaticText
              Left = 166
              Top = 103
              Width = 125
              Height = 21
              Align = alCustom
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clBtnFace
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
              TabOrder = 6
            end
            object DBEditCidadesCom: TDBEdit
              Left = 293
              Top = 103
              Width = 36
              Height = 21
              Hint = 'C'#243'digo da cidade'
              CharCase = ecUpperCase
              DataField = 'PES_CCIDADE'
              DataSource = DtSrc
              TabOrder = 7
              OnEnter = DBEditCidadesComEnter
              OnExit = DBEditCidadesComExit
            end
            object btnCidadeCom: TBitBtn
              Left = 330
              Top = 103
              Width = 21
              Height = 21
              Hint = 'Consulta cidade'
              Caption = '...'
              ParentShowHint = False
              ShowHint = True
              TabOrder = 8
              OnClick = btnCidadeComClick
            end
            object stCidadeCom: TStaticText
              Left = 352
              Top = 103
              Width = 207
              Height = 21
              AutoSize = False
              BorderStyle = sbsSingle
              Color = clBtnFace
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
              ParentShowHint = False
              ShowHint = False
              TabOrder = 9
            end
          end
          object GroupBox5: TGroupBox
            Left = 3
            Top = 264
            Width = 748
            Height = 76
            Caption = ' Refer'#234'ncia Comercial '
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            object DBMemo2: TDBMemo
              Left = 6
              Top = 13
              Width = 735
              Height = 59
              Hint = 'Refer'#234'ncia comercial'
              DataField = 'PES_CREFERENCIA'
              DataSource = DtSrc
              Enabled = False
              TabOrder = 0
              OnEnter = DBMemo2Enter
              OnExit = DBMemo2Exit
            end
          end
          object DBEdit10: TDBEdit
            Left = 3
            Top = 109
            Width = 579
            Height = 21
            Hint = 'Nome dos pais'
            CharCase = ecUpperCase
            DataField = 'PES_FILIACAO'
            DataSource = DtSrc
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnEnter = DBEdit10Enter
            OnExit = DBEdit10Exit
          end
          object rdgSexo: TDBRadioGroup
            Left = 3
            Top = 0
            Width = 83
            Height = 89
            Caption = 'Sexo'
            DataField = 'PES_SEXO'
            DataSource = DtSrc
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'Masculino'
              'Feminino')
            ParentFont = False
            TabOrder = 3
            Values.Strings = (
              'M'
              'F')
          end
          object rdgEstadoCivil: TDBRadioGroup
            Left = 90
            Top = 0
            Width = 89
            Height = 89
            Caption = 'Estado Civil'
            DataField = 'PES_ESTADOCIVIL'
            DataSource = DtSrc
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'SOLTEIRO'
              'CASADO'
              'VI'#218'VO')
            ParentFont = False
            TabOrder = 4
            Values.Strings = (
              'S'
              'C'
              'V')
          end
          object rdgTipoResidencia: TDBRadioGroup
            Left = 183
            Top = 0
            Width = 170
            Height = 89
            Caption = 'Tipo de Resid'#234'ncia'
            DataField = 'PES_TIPORESIDE'
            DataSource = DtSrc
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'CASA ALUGADA'
              'CASA PR'#211'PRIA'
              'APARTAMENTO ALUGADO'
              'APARTAMENTO PR'#211'PRIO')
            ParentFont = False
            TabOrder = 5
            Values.Strings = (
              '1'
              '2'
              '3'
              '4')
          end
          object rdgTempoResidencia: TDBRadioGroup
            Left = 357
            Top = 0
            Width = 228
            Height = 89
            Caption = 'Tempo de Resid'#234'ncia'
            Columns = 2
            DataField = 'PES_TEMPORESIDE'
            DataSource = DtSrc
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'DE 0___1 ANO'
              'DE 1___2 ANOS'
              'DE 2___3 ANOS'
              'DE 3___4 ANOS'
              'DE 4___5 ANOS'
              'MAIS DE 5 ANOS')
            ParentFont = False
            TabOrder = 6
            Values.Strings = (
              '1'
              '2'
              '3'
              '4'
              '5'
              '6')
          end
        end
        object TabSheet5: TTabSheet
          Caption = '&3- Dados sobre Cr'#233'dito '
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImageIndex = 4
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          object Label18: TLabel
            Left = 9
            Top = 9
            Width = 86
            Height = 13
            Caption = 'Renda Mensal R$'
            Color = clBtnFace
            FocusControl = DBEditRendaMensal
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label19: TLabel
            Left = 111
            Top = 9
            Width = 74
            Height = 13
            Caption = 'Trabalha desde'
            Color = clBtnFace
            FocusControl = DBEditTrabalhaDesde
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label38: TLabel
            Left = 269
            Top = 9
            Width = 90
            Height = 13
            Caption = 'Dia de Vencimento'
            Color = clBtnFace
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label39: TLabel
            Left = 363
            Top = 9
            Width = 98
            Height = 13
            Caption = 'Limite de Parcela R$'
            Color = clBtnFace
            FocusControl = DBEditLimite
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object DBEditRendaMensal: TDBEdit
            Left = 9
            Top = 28
            Width = 103
            Height = 21
            Hint = 'Renda mensal'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CRENDA'
            DataSource = DtSrc
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnEnter = DBEditRendaMensalEnter
            OnExit = DBEditRendaMensalExit
          end
          object DBEditTrabalhaDesde: TDBEdit
            Left = 113
            Top = 28
            Width = 72
            Height = 21
            Hint = 'Tempo de trabalho'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CADMISSAO'
            DataSource = DtSrc
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
          object DBEditLimite: TDBEdit
            Left = 363
            Top = 28
            Width = 131
            Height = 21
            Hint = 'Limite total de compra em dinheiro'
            BevelOuter = bvNone
            BevelKind = bkFlat
            CharCase = ecUpperCase
            Ctl3D = True
            DataField = 'PES_CLIMITE'
            DataSource = DtSrc
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            OnExit = DBEditLimiteExit
          end
          object cbxAprovado: TDBCheckBox
            Left = 192
            Top = 32
            Width = 73
            Height = 17
            Caption = 'Aprovado'
            DataField = 'PES_CAPROVADO'
            DataSource = DtSrc
            TabOrder = 2
            ValueChecked = 'S'
            ValueUnchecked = 'N'
          end
          object rdgEnderecoCorres: TDBRadioGroup
            Left = 496
            Top = 8
            Width = 249
            Height = 41
            Caption = 'Endere'#231'o para Correspond'#234'ncia'
            Columns = 2
            DataField = 'PES_CCORRES'
            DataSource = DtSrc
            Items.Strings = (
              'RESIDENCIAL'
              'COMERCIAL')
            TabOrder = 5
            Values.Strings = (
              'R'
              'C')
          end
          object DBEditVenc: TDBEdit
            Left = 272
            Top = 28
            Width = 89
            Height = 21
            DataField = 'PES_VENCIMENTO'
            DataSource = DtSrc
            TabOrder = 3
            OnEnter = DBEditVencEnter
            OnExit = DBEditVencExit
          end
        end
      end
    end
  end
  object DBGrid1: TDBGrid [3]
    Left = 0
    Top = 0
    Width = 457
    Height = 49
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  inherited DtSrc: TDataSource
    AutoEdit = False
    DataSet = CDS_PESSOAS
    Left = 128
    Top = 354
  end
  object SQLC_Pessoa: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdatePessoa
    SQL.Strings = (
      'select * from PESSOAS where PES_IDFCOD=:pcodigo')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pcodigo'
        ParamType = ptUnknown
      end>
    Left = 205
    Top = 350
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pcodigo'
        ParamType = ptUnknown
      end>
    object SQLC_PessoaPES_IDFCOD: TIntegerField
      FieldName = 'PES_IDFCOD'
      Required = True
    end
    object SQLC_PessoaPES_PESSOA: TStringField
      FieldName = 'PES_PESSOA'
      Required = True
      Size = 1
    end
    object SQLC_PessoaPES_CLIFOR: TStringField
      FieldName = 'PES_CLIFOR'
      Required = True
      Size = 1
    end
    object SQLC_PessoaPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object SQLC_PessoaPES_FANTASIA: TStringField
      FieldName = 'PES_FANTASIA'
      Size = 60
    end
    object SQLC_PessoaPES_ENDERECO: TStringField
      FieldName = 'PES_ENDERECO'
      Size = 60
    end
    object SQLC_PessoaPES_COMPLEMENTO: TStringField
      FieldName = 'PES_COMPLEMENTO'
      Size = 60
    end
    object SQLC_PessoaPES_BAIRRO: TStringField
      FieldName = 'PES_BAIRRO'
      Size = 40
    end
    object SQLC_PessoaPES_POSTAL: TStringField
      FieldName = 'PES_POSTAL'
      Size = 10
    end
    object SQLC_PessoaPES_ESTADO: TStringField
      FieldName = 'PES_ESTADO'
      Required = True
      Size = 2
    end
    object SQLC_PessoaPES_CIDADE: TStringField
      FieldName = 'PES_CIDADE'
      Required = True
      Size = 3
    end
    object SQLC_PessoaPES_CPFCNPJ: TStringField
      FieldName = 'PES_CPFCNPJ'
      Size = 18
    end
    object SQLC_PessoaPES_IDEINS: TStringField
      FieldName = 'PES_IDEINS'
    end
    object SQLC_PessoaPES_NASCIM: TDateField
      FieldName = 'PES_NASCIM'
    end
    object SQLC_PessoaPES_CADASTRO: TDateField
      FieldName = 'PES_CADASTRO'
    end
    object SQLC_PessoaPES_GRUPO: TStringField
      FieldName = 'PES_GRUPO'
      Required = True
      Size = 3
    end
    object SQLC_PessoaPES_FONE: TStringField
      FieldName = 'PES_FONE'
      Size = 30
    end
    object SQLC_PessoaPES_CELULAR: TStringField
      FieldName = 'PES_CELULAR'
      Size = 30
    end
    object SQLC_PessoaPES_EMAIL: TStringField
      FieldName = 'PES_EMAIL'
      Size = 60
    end
    object SQLC_PessoaPES_OBSERVA: TMemoField
      FieldName = 'PES_OBSERVA'
      BlobType = ftMemo
    end
    object SQLC_PessoaPES_SEXO: TStringField
      FieldName = 'PES_SEXO'
      Size = 1
    end
    object SQLC_PessoaPES_ESTADOCIVIL: TStringField
      FieldName = 'PES_ESTADOCIVIL'
      Size = 1
    end
    object SQLC_PessoaPES_TIPORESIDE: TStringField
      FieldName = 'PES_TIPORESIDE'
      Size = 1
    end
    object SQLC_PessoaPES_TEMPORESIDE: TStringField
      FieldName = 'PES_TEMPORESIDE'
      Size = 1
    end
    object SQLC_PessoaPES_CTRABALHO: TStringField
      FieldName = 'PES_CTRABALHO'
      Size = 60
    end
    object SQLC_PessoaPES_CENDERECO: TStringField
      FieldName = 'PES_CENDERECO'
      Size = 40
    end
    object SQLC_PessoaPES_CCOMPLEMENTO: TStringField
      FieldName = 'PES_CCOMPLEMENTO'
      Size = 60
    end
    object SQLC_PessoaPES_CBAIRRO: TStringField
      FieldName = 'PES_CBAIRRO'
      Size = 40
    end
    object SQLC_PessoaPES_CCIDADE: TStringField
      FieldName = 'PES_CCIDADE'
      Required = True
      Size = 3
    end
    object SQLC_PessoaPES_CESTADO: TStringField
      FieldName = 'PES_CESTADO'
      Required = True
      Size = 2
    end
    object SQLC_PessoaPES_CPOSTAL: TStringField
      FieldName = 'PES_CPOSTAL'
      Size = 10
    end
    object SQLC_PessoaPES_CFONE: TStringField
      FieldName = 'PES_CFONE'
      Size = 30
    end
    object SQLC_PessoaPES_CREFERENCIA: TMemoField
      FieldName = 'PES_CREFERENCIA'
      BlobType = ftMemo
    end
    object SQLC_PessoaPES_CRENDA: TFloatField
      FieldName = 'PES_CRENDA'
    end
    object SQLC_PessoaPES_CADMISSAO: TDateField
      FieldName = 'PES_CADMISSAO'
    end
    object SQLC_PessoaPES_CAPROVADO: TStringField
      FieldName = 'PES_CAPROVADO'
      Size = 1
    end
    object SQLC_PessoaPES_CDIAVENCIM: TSmallintField
      FieldName = 'PES_CDIAVENCIM'
    end
    object SQLC_PessoaPES_CLIMITE: TFloatField
      FieldName = 'PES_CLIMITE'
    end
    object SQLC_PessoaPES_CCORRES: TStringField
      FieldName = 'PES_CCORRES'
      Size = 1
    end
    object SQLC_PessoaPES_FILIACAO: TStringField
      FieldName = 'PES_FILIACAO'
      Size = 60
    end
    object SQLC_PessoaPES_PROFISSAO: TStringField
      FieldName = 'PES_PROFISSAO'
      Size = 40
    end
    object SQLC_PessoaPES_CODIGO: TStringField
      FieldName = 'PES_CODIGO'
      Size = 15
    end
    object SQLC_PessoaPES_VENCIMENTO: TSmallintField
      FieldName = 'PES_VENCIMENTO'
    end
    object SQLC_PessoaPES_DEPEXCEDENTE: TSmallintField
      FieldName = 'PES_DEPEXCEDENTE'
    end
    object SQLC_PessoaPES_SERVICOEXEC: TStringField
      FieldName = 'PES_SERVICOEXEC'
      Size = 1
    end
    object SQLC_PessoaPES_FOTO: TStringField
      FieldName = 'PES_FOTO'
      Size = 255
    end
  end
  object ZUpdatePessoa: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PESSOAS'
      'WHERE'
      '  PESSOAS.PES_IDFCOD = :OLD_PES_IDFCOD')
    InsertSQL.Strings = (
      'INSERT INTO PESSOAS'
      '  (PES_PESSOA, PES_CLIFOR, PES_NOME, PES_FANTASIA, '
      'PES_ENDERECO, PES_COMPLEMENTO, '
      '   PES_BAIRRO, PES_POSTAL, PES_ESTADO, PES_CIDADE, '
      'PES_CPFCNPJ, PES_IDEINS, '
      '   PES_NASCIM, PES_CADASTRO, PES_GRUPO, PES_FONE, '
      'PES_CELULAR, PES_EMAIL, '
      '   PES_OBSERVA, PES_SEXO, PES_ESTADOCIVIL, PES_TIPORESIDE, '
      'PES_TEMPORESIDE, '
      '   PES_CTRABALHO, PES_CENDERECO, PES_CCOMPLEMENTO, '
      'PES_CBAIRRO, PES_CCIDADE, '
      '   PES_CESTADO, PES_CPOSTAL, PES_CFONE, PES_CREFERENCIA, '
      'PES_CRENDA, PES_CADMISSAO, '
      '   PES_CAPROVADO, PES_CDIAVENCIM, PES_CLIMITE, '
      'PES_CCORRES, PES_FILIACAO, '
      '   PES_PROFISSAO, PES_CODIGO, PES_VENCIMENTO, '
      'PES_DEPEXCEDENTE, PES_SERVICOEXEC, PES_FOTO)'
      'VALUES'
      '  (:PES_PESSOA, :PES_CLIFOR, :PES_NOME, :PES_FANTASIA, '
      ':PES_ENDERECO, :PES_COMPLEMENTO, '
      '   :PES_BAIRRO, :PES_POSTAL, :PES_ESTADO, :PES_CIDADE, '
      ':PES_CPFCNPJ, :PES_IDEINS, '
      '   :PES_NASCIM, :PES_CADASTRO, :PES_GRUPO, :PES_FONE, '
      ':PES_CELULAR, :PES_EMAIL, '
      '   :PES_OBSERVA, :PES_SEXO, :PES_ESTADOCIVIL, '
      ':PES_TIPORESIDE, :PES_TEMPORESIDE, '
      '   :PES_CTRABALHO, :PES_CENDERECO, :PES_CCOMPLEMENTO, '
      ':PES_CBAIRRO, :PES_CCIDADE, '
      '   :PES_CESTADO, :PES_CPOSTAL, :PES_CFONE, '
      ':PES_CREFERENCIA, :PES_CRENDA, '
      '   :PES_CADMISSAO, :PES_CAPROVADO, :PES_CDIAVENCIM, '
      ':PES_CLIMITE, :PES_CCORRES, '
      '   :PES_FILIACAO, :PES_PROFISSAO, :PES_CODIGO, '
      ':PES_VENCIMENTO, :PES_DEPEXCEDENTE, '
      '   :PES_SERVICOEXEC, :PES_FOTO)')
    ModifySQL.Strings = (
      'UPDATE PESSOAS SET'
      '  PES_PESSOA = :PES_PESSOA,'
      '  PES_CLIFOR = :PES_CLIFOR,'
      '  PES_NOME = :PES_NOME,'
      '  PES_FANTASIA = :PES_FANTASIA,'
      '  PES_ENDERECO = :PES_ENDERECO,'
      '  PES_COMPLEMENTO = :PES_COMPLEMENTO,'
      '  PES_BAIRRO = :PES_BAIRRO,'
      '  PES_POSTAL = :PES_POSTAL,'
      '  PES_ESTADO = :PES_ESTADO,'
      '  PES_CIDADE = :PES_CIDADE,'
      '  PES_CPFCNPJ = :PES_CPFCNPJ,'
      '  PES_IDEINS = :PES_IDEINS,'
      '  PES_NASCIM = :PES_NASCIM,'
      '  PES_CADASTRO = :PES_CADASTRO,'
      '  PES_GRUPO = :PES_GRUPO,'
      '  PES_FONE = :PES_FONE,'
      '  PES_CELULAR = :PES_CELULAR,'
      '  PES_EMAIL = :PES_EMAIL,'
      '  PES_OBSERVA = :PES_OBSERVA,'
      '  PES_SEXO = :PES_SEXO,'
      '  PES_ESTADOCIVIL = :PES_ESTADOCIVIL,'
      '  PES_TIPORESIDE = :PES_TIPORESIDE,'
      '  PES_TEMPORESIDE = :PES_TEMPORESIDE,'
      '  PES_CTRABALHO = :PES_CTRABALHO,'
      '  PES_CENDERECO = :PES_CENDERECO,'
      '  PES_CCOMPLEMENTO = :PES_CCOMPLEMENTO,'
      '  PES_CBAIRRO = :PES_CBAIRRO,'
      '  PES_CCIDADE = :PES_CCIDADE,'
      '  PES_CESTADO = :PES_CESTADO,'
      '  PES_CPOSTAL = :PES_CPOSTAL,'
      '  PES_CFONE = :PES_CFONE,'
      '  PES_CREFERENCIA = :PES_CREFERENCIA,'
      '  PES_CRENDA = :PES_CRENDA,'
      '  PES_CADMISSAO = :PES_CADMISSAO,'
      '  PES_CAPROVADO = :PES_CAPROVADO,'
      '  PES_CDIAVENCIM = :PES_CDIAVENCIM,'
      '  PES_CLIMITE = :PES_CLIMITE,'
      '  PES_CCORRES = :PES_CCORRES,'
      '  PES_FILIACAO = :PES_FILIACAO,'
      '  PES_PROFISSAO = :PES_PROFISSAO,'
      '  PES_CODIGO = :PES_CODIGO,'
      '  PES_VENCIMENTO = :PES_VENCIMENTO,'
      '  PES_DEPEXCEDENTE = :PES_DEPEXCEDENTE,'
      '  PES_SERVICOEXEC = :PES_SERVICOEXEC,'
      '  PES_FOTO = :PES_FOTO'
      'WHERE'
      '  PESSOAS.PES_IDFCOD = :OLD_PES_IDFCOD')
    UseSequenceFieldForRefreshSQL = False
    Left = 302
    Top = 354
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PES_PESSOA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CLIFOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_NOME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FANTASIA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ENDERECO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_COMPLEMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_BAIRRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_POSTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ESTADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CIDADE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CPFCNPJ'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_IDEINS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_NASCIM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CADASTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_GRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CELULAR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_EMAIL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_OBSERVA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_SEXO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ESTADOCIVIL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_TIPORESIDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_TEMPORESIDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CTRABALHO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CENDERECO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCOMPLEMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CBAIRRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCIDADE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CESTADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CPOSTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CFONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CREFERENCIA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CRENDA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CADMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CAPROVADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CDIAVENCIM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CLIMITE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCORRES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FILIACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_PROFISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_DEPEXCEDENTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_SERVICOEXEC'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FOTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PES_IDFCOD'
        ParamType = ptUnknown
      end>
  end
  object DSP_PESSOA: TDataSetProvider
    DataSet = SQLC_Pessoa
    Left = 385
    Top = 349
  end
  object CDS_PESSOAS: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'pcodigo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_PESSOA'
    AfterPost = CDS_PESSOASAfterPost
    Left = 473
    Top = 349
    object CDS_PESSOASPES_IDFCOD: TIntegerField
      FieldName = 'PES_IDFCOD'
      Required = True
    end
    object CDS_PESSOASPES_PESSOA: TStringField
      FieldName = 'PES_PESSOA'
      Required = True
      Size = 1
    end
    object CDS_PESSOASPES_CLIFOR: TStringField
      FieldName = 'PES_CLIFOR'
      Required = True
      Size = 1
    end
    object CDS_PESSOASPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object CDS_PESSOASPES_FANTASIA: TStringField
      FieldName = 'PES_FANTASIA'
      Size = 60
    end
    object CDS_PESSOASPES_ENDERECO: TStringField
      FieldName = 'PES_ENDERECO'
      Size = 60
    end
    object CDS_PESSOASPES_COMPLEMENTO: TStringField
      FieldName = 'PES_COMPLEMENTO'
      Size = 60
    end
    object CDS_PESSOASPES_BAIRRO: TStringField
      FieldName = 'PES_BAIRRO'
      Size = 40
    end
    object CDS_PESSOASPES_POSTAL: TStringField
      FieldName = 'PES_POSTAL'
      Size = 10
    end
    object CDS_PESSOASPES_ESTADO: TStringField
      FieldName = 'PES_ESTADO'
      Required = True
      Size = 2
    end
    object CDS_PESSOASPES_CIDADE: TStringField
      FieldName = 'PES_CIDADE'
      Required = True
      Size = 3
    end
    object CDS_PESSOASPES_CPFCNPJ: TStringField
      FieldName = 'PES_CPFCNPJ'
      Size = 18
    end
    object CDS_PESSOASPES_IDEINS: TStringField
      FieldName = 'PES_IDEINS'
    end
    object CDS_PESSOASPES_NASCIM: TDateField
      FieldName = 'PES_NASCIM'
    end
    object CDS_PESSOASPES_CADASTRO: TDateField
      FieldName = 'PES_CADASTRO'
    end
    object CDS_PESSOASPES_GRUPO: TStringField
      FieldName = 'PES_GRUPO'
      Required = True
      Size = 3
    end
    object CDS_PESSOASPES_FONE: TStringField
      FieldName = 'PES_FONE'
      Size = 30
    end
    object CDS_PESSOASPES_CELULAR: TStringField
      FieldName = 'PES_CELULAR'
      Size = 30
    end
    object CDS_PESSOASPES_EMAIL: TStringField
      FieldName = 'PES_EMAIL'
      Size = 60
    end
    object CDS_PESSOASPES_OBSERVA: TMemoField
      FieldName = 'PES_OBSERVA'
      BlobType = ftMemo
    end
    object CDS_PESSOASPES_SEXO: TStringField
      FieldName = 'PES_SEXO'
      Size = 1
    end
    object CDS_PESSOASPES_ESTADOCIVIL: TStringField
      FieldName = 'PES_ESTADOCIVIL'
      Size = 1
    end
    object CDS_PESSOASPES_TIPORESIDE: TStringField
      FieldName = 'PES_TIPORESIDE'
      Size = 1
    end
    object CDS_PESSOASPES_TEMPORESIDE: TStringField
      FieldName = 'PES_TEMPORESIDE'
      Size = 1
    end
    object CDS_PESSOASPES_CTRABALHO: TStringField
      FieldName = 'PES_CTRABALHO'
      Size = 60
    end
    object CDS_PESSOASPES_CENDERECO: TStringField
      FieldName = 'PES_CENDERECO'
      Size = 40
    end
    object CDS_PESSOASPES_CCOMPLEMENTO: TStringField
      FieldName = 'PES_CCOMPLEMENTO'
      Size = 60
    end
    object CDS_PESSOASPES_CBAIRRO: TStringField
      FieldName = 'PES_CBAIRRO'
      Size = 40
    end
    object CDS_PESSOASPES_CCIDADE: TStringField
      FieldName = 'PES_CCIDADE'
      Required = True
      Size = 3
    end
    object CDS_PESSOASPES_CESTADO: TStringField
      FieldName = 'PES_CESTADO'
      Required = True
      Size = 2
    end
    object CDS_PESSOASPES_CPOSTAL: TStringField
      FieldName = 'PES_CPOSTAL'
      Size = 10
    end
    object CDS_PESSOASPES_CFONE: TStringField
      FieldName = 'PES_CFONE'
      Size = 30
    end
    object CDS_PESSOASPES_CREFERENCIA: TMemoField
      FieldName = 'PES_CREFERENCIA'
      BlobType = ftMemo
    end
    object CDS_PESSOASPES_CRENDA: TFloatField
      FieldName = 'PES_CRENDA'
      currency = True
    end
    object CDS_PESSOASPES_CADMISSAO: TDateField
      FieldName = 'PES_CADMISSAO'
    end
    object CDS_PESSOASPES_CAPROVADO: TStringField
      FieldName = 'PES_CAPROVADO'
      Size = 1
    end
    object CDS_PESSOASPES_CDIAVENCIM: TSmallintField
      FieldName = 'PES_CDIAVENCIM'
    end
    object CDS_PESSOASPES_CLIMITE: TFloatField
      FieldName = 'PES_CLIMITE'
      currency = True
    end
    object CDS_PESSOASPES_CCORRES: TStringField
      FieldName = 'PES_CCORRES'
      Size = 1
    end
    object CDS_PESSOASPES_FILIACAO: TStringField
      FieldName = 'PES_FILIACAO'
      Size = 60
    end
    object CDS_PESSOASPES_PROFISSAO: TStringField
      FieldName = 'PES_PROFISSAO'
      Size = 40
    end
    object CDS_PESSOASPES_CODIGO: TStringField
      FieldName = 'PES_CODIGO'
      Size = 15
    end
    object CDS_PESSOASPES_VENCIMENTO: TSmallintField
      FieldName = 'PES_VENCIMENTO'
    end
    object CDS_PESSOASPES_DEPEXCEDENTE: TSmallintField
      FieldName = 'PES_DEPEXCEDENTE'
    end
    object CDS_PESSOASPES_SERVICOEXEC: TStringField
      FieldName = 'PES_SERVICOEXEC'
      Size = 1
    end
    object CDS_PESSOASPES_FOTO: TStringField
      FieldName = 'PES_FOTO'
      Size = 255
    end
  end
  object Cds: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 112
    Top = 264
  end
  object DataSetProvider1: TDataSetProvider
    Left = 120
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = Cds
    Left = 104
    Top = 104
  end
end
